home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / JFF-WW5.DMS / in.adf / Add New Printer < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.9 KB  |  158 lines
  1. ; INSTALL NEW PRINTER
  2.  
  3. ; Start string definitions
  4. (set #Welcome-Pirate
  5. (cat "\nWillkommen zur neuen Druckerinstallation\n\n"
  6.      "Copyright (C) 1993 Digita International\n\n"
  7.      "Einzelverkauf ist unzulässig!"
  8. ))
  9.  
  10. (set #InsertDiskMsg
  11. (cat "Bitte legen Sie die Diskette ein:\n\n"
  12. ))
  13.  
  14.  
  15.  
  16. (set #InsertAmigaDiskMsg
  17. (cat "Bitte legen Sie die Amiga Workbench Diskette ein:\n\n"
  18. ))
  19.  
  20.  
  21.  
  22. (set #diskhelp
  23. (cat "\n Wenn Sie die richtige Diskette im Laufwerk haben und dennoch nicht fortfahren, "
  24.     "können, ist der Name der Disk falsch.  \n"
  25.     "    überprüfen Sie, ob der Name der Diskette Blanks oder `copy_of_` vor oder nach dem Namen enthält. \n\n\n"
  26. ))
  27.  
  28. (set #WwDiskName
  29. (cat "Wordworth"
  30. ))
  31.  
  32. (set #WwSystemDiskName
  33. (cat "WwSystem"
  34. ))
  35.  
  36. (set #WwSystemMiscFiles
  37. (cat #WwSystemDiskName ":MiscFiles"
  38. ))
  39.  
  40. (set #AmigaDriverDiskName
  41. (cat "Storage3.0"
  42. ))
  43.  
  44. (set #AmigaDriverSource
  45. (cat #AmigaDriverDiskName ":printers"
  46. ))
  47.  
  48.  
  49. (set FontDest "FONTS:")
  50. (set DriverDest "DEVS:Printers")
  51.  
  52. (set @default-dest "")
  53.  
  54.  
  55. ; Get Users Printer Choice
  56. (askdisk
  57.     (prompt #InsertDiskMsg #WwSystemDiskName)
  58.     (help #diskhelp)
  59.     (dest #WwSystemDiskName)
  60. )
  61. (run "WwSystem:select WwSystem:WwPrinterList")
  62. (set ChosenDriver (getenv "wwDriver"))
  63.  
  64. (complete 20)
  65. ; copy appropriate driver to destination
  66. ; Is it a driver we supply?
  67. ; If yes, get driver from Wordworth disk set,
  68. ; else get from Workbench Storage disks
  69. ; Ignore if a Postscript printer
  70.  
  71. (if (NOT (= ChosenDriver "NoDriver"))
  72.     (
  73.         (if (NOT (= ChosenDriver "PostScript"))
  74.             (
  75.                 ; Get drivers from Wordworth disks
  76.                 (set SourcePath #WwSystemMiscFiles)
  77.  
  78.                 (if (NOT (= ChosenDriver "CanonBJ130"))
  79.                     (if (NOT (= ChosenDriver "CanonEpson"))
  80.                         (
  81.                             ; All other drivers from Workbench disks
  82.                             (set SourcePath #AmigaDriverSource)
  83.                         )
  84.                     )
  85.                 )
  86.             ) ;end compound if
  87.         ) ; end if not postscript
  88.     ) ;end compund if
  89. )
  90.  
  91. (complete 50)
  92. ; copy driver if not Postscript, not NoDriver and not already exists
  93. (if (NOT (= ChosenDriver "NoDriver"))
  94.     (
  95.         (if (NOT (exists (tackon DriverDest ChosenDriver)))
  96.             (
  97.                 (if (= SourcePath #AmigaDriverSource)
  98.                     (askdisk
  99.                         (prompt #InsertAmigaDiskMsg #AmigaDriverDiskName)
  100.                         (help #diskhelp)
  101.                         (dest #AmigaDriverDiskName)
  102.                     )
  103.                 )
  104.  
  105.                 (copyfiles
  106.                     (source SourcePath)
  107.                     (dest "T:")
  108.                     (pattern ChosenDriver)
  109.                     (nogauge)
  110.                 )
  111.              )
  112.         )
  113.     )
  114. )
  115.  
  116. (complete 70)
  117. ; Now copy fonts to T:
  118. (makedir "T:WwFonts")
  119.  
  120. (if (= (expandpath FontDest) "Wordworth:Fonts")
  121.     (askdisk
  122.         (prompt #InsertDiskMsg #WwDiskName)
  123.         (help #diskhelp)
  124.         (dest #WwDiskName)
  125.     )
  126. )
  127.         
  128. (if (exists "ram:script")
  129.     (
  130.         (execute "ram:script")
  131.         
  132.         ;Lets copy fonts in T: to system fonts drawer
  133.         (copyfiles
  134.             (source "T:WwFonts")
  135.             (dest FontDest)
  136.             (all)
  137.         )
  138.     )
  139. )
  140.  
  141. (if (exists (tackon "T:" ChosenDriver))
  142.     (copyfiles
  143.         (source "T:")
  144.         (dest DriverDest)
  145.         (pattern ChosenDriver)
  146.     )
  147. )
  148.  
  149.  
  150.  
  151. ;clean up ram disk
  152. (delete "RAM:script")
  153. (run "delete T:#? all")
  154.  
  155. (complete 100)
  156.  
  157. (exit)
  158.